home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Network Support Library
/
RoseWare - Network Support Library.iso
/
apidev
/
tpapi.exe
/
NWMISC.PA1
< prev
next >
Wrap
Text File
|
1994-01-14
|
7KB
|
151 lines
{#Z+}
(*(10U&l12D(s4099T&k2S*)
{***************************************************************************}
{** Program : NWMISC **}
{***************************************************************************}
{** Version : 1.4 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : NWMISC **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Misc functions **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 - 1994 Antonio Covelli. ALL RIGHTS RESERVED. **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
{#Z-}
UNIT NWMISC;
INTERFACE
USES
nwvar,
netware,
nwbindry,
nwconn,
nwfsyst,
nwwrkstn,
objects;
TYPE
TTime = (AMPM, H24);
TAcctModes = (ReadR, WriteR);
TLDateTime = RECORD
Year,
Mth,
Day,
Hour,
Min,
Sec : WORD;
END;
PMiscFuncOBJ = ^MiscFuncOBJ;
MiscFuncOBJ = OBJECT (NetwareOBJ)
CONSTRUCTOR Init (iDynamicAllocation : boolean);
FUNCTION AccountRestrictions (ObjectName : TObjectName; ObjectType : OT_BinderyType;
VAR AcctRest : TAccountRestrictions; Mode : TAcctModes) : WORD;
FUNCTION AutoLogin (ObjectName : TObjectName; ObjectType : OT_BinderyType;
Password : TPassword; ServerName : TObjectName;
VAR SlotNumber : WORD; VAR LoggedInName : TObjectName;
ForceLogin : BOOLEAN) : WORD;
FUNCTION DeleteDriveMapping (Drive : CHAR) : WORD;
{*} FUNCTION ExpandNetwareDateAndTime (DateTimeInfo : TByte7Array; TimeType : TTime) : STRING;
{NOT YET IMPLEMENTED}
{*} FUNCTION ExpandNetwareFileDate (DateInfo : LONGINT) : STRING;
{NOT YET IMPLEMENTED}
FUNCTION ExpandNetwareFileTime (TimeInfo : LONGINT) : STRING;
FUNCTION ExpandNetwareLoginDateAndTime (DateInfo : TByte6Array) : STRING;
FUNCTION FileServerExists (ServerName : TObjectName) : BOOLEAN;
PROCEDURE GetAllFileServersOnInternet;
PROCEDURE GetAllObjects (SearchName : TObjectName; ObjectType : OT_BinderyType;
VAR ObjectList : PStringCollection; VAR NoOfObjects : WORD);
PROCEDURE GetAllShellTables;
PROCEDURE GetDefaultFileServerAddress (VAR ServerAddress : TServerAddress);
FUNCTION GetDefaultFileServerName : TObjectName;
FUNCTION GetObjectFullName (ServerName : TObjectName; VAR ObjectFullName : TFullName;
VAR ObjectType : OT_BinderyType) : WORD;
FUNCTION GetObjectNameID (ServerName : TObjectName; VAR ObjectName : TObjectName;
VAR ObjectType : OT_BinderyType;
VAR ObjectID : OT_BinderyID) : WORD;
FUNCTION GetPrintQueueDirectoryID (ServerName, PrintQueueName : TObjectName;
PrintQueueID : OT_BinderyID;
VAR DirectoryPath : TPathName;
VAR QueueID : OT_BinderyID) : WORD;
FUNCTION GetStationNumber (ServerName : TObjectName) : WORD;
PROCEDURE LogoutAndDetachFromFileServer (ServerName : TObjectName; ConnectionID : WORD);
FUNCTION MakeSupervisor (ObjectName : TObjectName; ObjectType : OT_BinderyType) : WORD;
FUNCTION MiscMapDrive (Drive : CHAR; PathName : TPathName; ServerName : TObjectName;
VAR DirectoryHandle : BYTE; DriveType : BYTE; MapRoot : boolean) : WORD;
FUNCTION NetWareLoaded (VAR LoggedIn : BOOLEAN) : BOOLEAN;
FUNCTION RevokeSupervisor (ObjectName : TObjectName; ObjectType : OT_BinderyType) : WORD;
FUNCTION SearchAllObjects (SearchName : TObjectName; ObjectList : PStringCollection) : word;
procedure SetNWCaptureFlags (VAR CaptureFlags : Capture_Flags);
FUNCTION Supervisor : BOOLEAN;
FUNCTION SupervisorEquivalent : BOOLEAN;
FUNCTION UserMemberOfGroup (ObjectName, MemberName : TObjectName) : WORD;
DESTRUCTOR Done; VIRTUAL;
PRIVATE
nwMiscBindery : BinderyOBJ;
nwMiscConnection : ConnectionOBJ;
nwMiscFileSystem : FileSystemOBJ;
nwMiscWorkStation : WorkStationOBJ;
END;
VAR
FileServersOnInternet : PStringCollection;
NoOfFileServersOnInternet : WORD;